Application.HideBar("Design Toolbar")
Application.ShowBar("Drafting Toolbar")
Application.ExecuteCommand("Create Text")